home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1991 / 02 / watcom / min.dat < prev    next >
Text File  |  1990-12-21  |  7KB  |  180 lines
  1. module min.obj
  2.  
  3. extrn MINWNDPROC
  4. extrn LOADCURSOR
  5. extrn LOADICON
  6. extrn REGISTERCLASS
  7. extrn CREATEWINDOW
  8. extrn SHOWWINDOW
  9. extrn GETMESSAGE
  10. extrn TRANSLATEMESSAGE
  11. extrn DISPATCHMESSAGE
  12. extrn DEFWINDOWPROC
  13. extrn POSTQUITMESSAGE
  14. extrn _big_code_
  15.  
  16. segment CONST(DATA,00048H) (*segment length = 0001FH*)
  17.                             $0:
  18. db 04DH,049H,04EH,03AH,04DH,041H,049H,04EH
  19. db 000H
  20.                             $1:
  21. db 068H,061H,06EH,064H,000H
  22.                             $2:
  23. db 073H,06EH,061H,070H,073H,068H,06FH,074H
  24. db 000H
  25.                             $3:
  26. db 04DH,069H,06EH,069H,06DH,075H,06DH,000H
  27.  
  28. segment _DATA(DATA,00048H) (*segment length = 00000H*)
  29.  
  30. segment _BSS(BSS,00048H) (*segment length = 00002H*)
  31.                             public PLOCALHEAP:
  32. org 00002H
  33.  
  34. segment min_TEXT(CODE,00028H) (*segment length = 0012FH*)
  35.                             public WINMAIN:
  36. (*0000 1E*)                   push  ds
  37. (*0001 58*)                   pop   ax
  38. (*0002 90*)                   nop   
  39. (*0003 45*)                   inc   bp
  40. (*0004 55*)                   push  bp
  41. (*0005 89 E5*)                mov   bp,sp
  42. (*0007 1E*)                   push  ds
  43. (*0008 8E D8*)                mov   ds,ax
  44. (*000A 56*)                   push  si
  45. (*000B 83 EC 2C*)             sub   sp,2CH
  46. (*000E 8B 76 0E*)             mov   si,[bp][0EH]
  47. (*0011 83 7E 0C 00*)          cmp   word [bp][0CH],0
  48. (*0015 75 5F*)                jne   $4
  49. (*0017 8C 5E E8*)             mov   [bp][-18H],ds
  50. (*001A C7 46 E6 00 00*)       mov   word [bp][-1AH],$0
  51. (*001F 89 76 DA*)             mov   [bp][-26H],si
  52. (*0022 C7 46 D4 00 00*)       mov   word [bp][-2CH],seg MINWNDPROC
  53. (*0027 C7 46 D2 00 00*)       mov   word [bp][-2EH],MINWNDPROC
  54. (*002C 56*)                   push  si
  55. (*002D 8C D8*)                mov   ax,ds
  56. (*002F BA 09 00*)             mov   dx,$1
  57. (*0032 50*)                   push  ax
  58. (*0033 52*)                   push  dx
  59. (*0034 9A 00 00 00 00*)       call  far LOADCURSOR
  60. (*0039 89 46 DE*)             mov   [bp][-22H],ax
  61. (*003C 56*)                   push  si
  62. (*003D 8C D8*)                mov   ax,ds
  63. (*003F BA 0E 00*)             mov   dx,$2
  64. (*0042 50*)                   push  ax
  65. (*0043 52*)                   push  dx
  66. (*0044 9A 00 00 00 00*)       call  far LOADICON
  67. (*0049 89 46 DC*)             mov   [bp][-24H],ax
  68. (*004C C7 46 E2 00 00*)       mov   word [bp][-1EH],0
  69. (*0051 C7 46 E4 00 00*)       mov   word [bp][-1CH],0
  70. (*0056 C7 46 E0 06 00*)       mov   word [bp][-20H],6
  71. (*005B C7 46 D0 00 00*)       mov   word [bp][-30H],0
  72. (*0060 C7 46 D6 00 00*)       mov   word [bp][-2AH],0
  73. (*0065 C7 46 D8 00 00*)       mov   word [bp][-28H],0
  74. (*006A 8C D0*)                mov   ax,ss
  75. (*006C 8D 56 D0*)             lea   dx,[bp][-30H]
  76. (*006F 50*)                   push  ax
  77. (*0070 52*)                   push  dx
  78. (*0071 9A 00 00 00 00*)       call  far REGISTERCLASS
  79.                             $4:
  80. (*0076 8C D8*)                mov   ax,ds
  81. (*0078 BA 00 00*)             mov   dx,$0
  82. (*007B 50*)                   push  ax
  83. (*007C 52*)                   push  dx
  84. (*007D 8C D8*)                mov   ax,ds
  85. (*007F BA 17 00*)             mov   dx,$3
  86. (*0082 50*)                   push  ax
  87. (*0083 52*)                   push  dx
  88. (*0084 B8 CF 00*)             mov   ax,0CFH
  89. (*0087 50*)                   push  ax
  90. (*0088 31 C0*)                xor   ax,ax
  91. (*008A 50*)                   push  ax
  92. (*008B B8 00 80*)             mov   ax,-8000H
  93. (*008E 50*)                   push  ax
  94. (*008F 31 C0*)                xor   ax,ax
  95. (*0091 50*)                   push  ax
  96. (*0092 B8 00 80*)             mov   ax,-8000H
  97. (*0095 50*)                   push  ax
  98. (*0096 31 C0*)                xor   ax,ax
  99. (*0098 50*)                   push  ax
  100. (*0099 31 C0*)                xor   ax,ax
  101. (*009B 50*)                   push  ax
  102. (*009C 31 C0*)                xor   ax,ax
  103. (*009E 50*)                   push  ax
  104. (*009F 56*)                   push  si
  105. (*00A0 31 C0*)                xor   ax,ax
  106. (*00A2 50*)                   push  ax
  107. (*00A3 31 C0*)                xor   ax,ax
  108. (*00A5 50*)                   push  ax
  109. (*00A6 9A 00 00 00 00*)       call  far CREATEWINDOW
  110. (*00AB 50*)                   push  ax
  111. (*00AC FF 76 06*)             push  word [bp][6]
  112. (*00AF 9A 00 00 00 00*)       call  far SHOWWINDOW
  113.                             $5:
  114. (*00B4 8C D0*)                mov   ax,ss
  115. (*00B6 8D 56 EA*)             lea   dx,[bp][-16H]
  116. (*00B9 50*)                   push  ax
  117. (*00BA 52*)                   push  dx
  118. (*00BB 31 C0*)                xor   ax,ax
  119. (*00BD 50*)                   push  ax
  120. (*00BE 31 C0*)                xor   ax,ax
  121. (*00C0 50*)                   push  ax
  122. (*00C1 31 C0*)                xor   ax,ax
  123. (*00C3 50*)                   push  ax
  124. (*00C4 9A 00 00 00 00*)       call  far GETMESSAGE
  125. (*00C9 85 C0*)                test  ax,ax
  126. (*00CB 74 1A*)                je    $6
  127. (*00CD 8C D0*)                mov   ax,ss
  128. (*00CF 8D 56 EA*)             lea   dx,[bp][-16H]
  129. (*00D2 50*)                   push  ax
  130. (*00D3 52*)                   push  dx
  131. (*00D4 9A 00 00 00 00*)       call  far TRANSLATEMESSAGE
  132. (*00D9 8C D0*)                mov   ax,ss
  133. (*00DB 8D 56 EA*)             lea   dx,[bp][-16H]
  134. (*00DE 50*)                   push  ax
  135. (*00DF 52*)                   push  dx
  136. (*00E0 9A 00 00 00 00*)       call  far DISPATCHMESSAGE
  137. (*00E5 EB CD*)                jmp   $5
  138.                             $6:
  139. (*00E7 31 C0*)                xor   ax,ax
  140. (*00E9 8D 66 FC*)             lea   sp,[bp][-4]
  141. (*00EC 5E*)                   pop   si
  142. (*00ED 1F*)                   pop   ds
  143. (*00EE 5D*)                   pop   bp
  144. (*00EF 4D*)                   dec   bp
  145. (*00F0 CA 0A 00*)             ret far 0AH
  146.                             public MINWNDPROC:
  147. (*00F3 1E*)                   push  ds
  148. (*00F4 58*)                   pop   ax
  149. (*00F5 90*)                   nop   
  150. (*00F6 45*)                   inc   bp
  151. (*00F7 55*)                   push  bp
  152. (*00F8 89 E5*)                mov   bp,sp
  153. (*00FA 1E*)                   push  ds
  154. (*00FB 8E D8*)                mov   ds,ax
  155. (*00FD 8B 56 0C*)             mov   dx,[bp][0CH]
  156. (*0100 89 D0*)                mov   ax,dx
  157. (*0102 83 E8 02*)             sub   ax,2
  158. (*0105 85 C0*)                test  ax,ax
  159. (*0107 74 14*)                je    $7
  160. (*0109 FF 76 0E*)             push  word [bp][0EH]
  161. (*010C 52*)                   push  dx
  162. (*010D FF 76 0A*)             push  word [bp][0AH]
  163. (*0110 FF 76 08*)             push  word [bp][8]
  164. (*0113 FF 76 06*)             push  word [bp][6]
  165. (*0116 9A 00 00 00 00*)       call  far DEFWINDOWPROC
  166. (*011B EB 0C*)                jmp   $8
  167.                             $7:
  168. (*011D 31 C0*)                xor   ax,ax
  169. (*011F 50*)                   push  ax
  170. (*0120 9A 00 00 00 00*)       call  far POSTQUITMESSAGE
  171. (*0125 31 C0*)                xor   ax,ax
  172. (*0127 31 D2*)                xor   dx,dx
  173.                             $8:
  174. (*0129 1F*)                   pop   ds
  175. (*012A 5D*)                   pop   bp
  176. (*012B 4D*)                   dec   bp
  177. (*012C CA 0A 00*)             ret far 0AH
  178.  
  179. end
  180.